home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 12: Textmags & Docs / nf_archive_12.iso / MAGS / SOURCES / ATARI_SRC.ZIP / atari source / AHDI / TTDRIVER / ACSC / TEST.E < prev    next >
Encoding:
Text File  |  2001-02-09  |  252 b   |  18 lines
  1. 1 store-macro
  2.   1 redraw-display
  3. !endm
  4.  
  5. bind-to-key execute-macro-1 M-!
  6.  
  7. 2 store-macro
  8. *loop
  9.   !force search-forward equ
  10.   !if ¬ $status
  11.     !goto end
  12.   !endif
  13.   3 delete-previous-character
  14.   insert-string =
  15.   !goto loop
  16. *end
  17. !endm
  18.